letalidade_Brasil_Italia <- dados_covid %>% 
  filter(Country=="Brazil"|Country=="Italy", 
         New_cases>0,
         !is.na(New_cases))%>% 
  separate(Date_reported, c("Ano", "Mês", "Dia"))%>% 
  mutate(Country=str_replace(Country, "Brazil", "Brasil"),
         Country=str_replace(Country, "Italy", "Itália"))%>% 
  mutate(letalidade_diaria = New_deaths/New_cases*100)%>% 
  group_by(Ano, Country) %>% 
  summarise(letalidade_media = mean(letalidade_diaria, na.rm = T), 
            desvio_padrao = sd(letalidade_diaria,
                               na.rm = T),
            Casos_maximo = max(New_cases,
                               na.rm = T),
            Obitos_maximo = max(New_deaths,
                                na.rm = T)) %>% 
  ungroup() %>% 
  mutate_if(is.numeric, ~format(., big.mark=".", decimal.mark=",", digits=2))
  

 letalidade_Brasil_Italia

tab1 <- flextable( letalidade_Brasil_Italia) %>% 
  autofit() %>% 
  align(align="r", part="all") %>% 
  align(align="c", j=c(1,2),  part="all") %>% 
  bold(part="header") %>% 
  bold(j=c(1,2)) %>% 
  bg(bg="lightgrey", j=c(1,2), part="all") %>% 
  hline(i=c(2,4,6)) %>% 
  vline(j=2)
  
tab1

tab1 %>% 
  set_header_labels( 
  Country="País", 
  letalidade_media="Letalidade Média Diária",
  desvio_padrao="Desvio Padrão",
  Casos_maximo="Máximo de casos em 24h", 
  Obitos_maximo="Máximo de óbitos em 24h")

tab2 <- tab1 %>% 
  set_header_labels( 
  Country="País", 
  letalidade_media="Letalidade Média Diária",
  desvio_padrao="Desvio\n Padrão",
  Casos_maximo="Máximo de casos em 24h", 
  Obitos_maximo="Máximo de óbitos em 24h")
 
tab2

tab3 <- tab2 %>% 
  add_header_row(values = c("Tempo/Lugar", "Indicadores"),
                 colwidths = c(2,4))

tab3

run_num <- run_autonum(seq_id = "tab", pre_label = "Tabela", 
                       post_label=". ", bkm = "anytable")

tab3 %>% 
set_caption("Título da tabela",
            autonum=run_num ) 

tab3 %>% font(part = "all", fontname = "Verdana")

tab3 %>% font(part = "all", fontname = "Poppins")